home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 98 / Skunkware 98.iso / osr5 / sco / scripts / admin / adduser next >
Encoding:
Korn shell script  |  1997-08-26  |  37.0 KB  |  1,245 lines
  1. #!/bin/ksh
  2. # adduser: script to add a user to the system.
  3. # @(#) adduser.ksh 3.0 97/06/27
  4. # 91/01/25 john h. dubois iii (john@armory.com)
  5. # 91/02/02 added interactive capability
  6. # 91/09/27 put phone num in GCOS field if given, cleaned up
  7. # 91/10/27 Changed format of address record written.
  8. #          Also, now writes address record to first word of $ADDRESS
  9. # 92/03/07 changed mkuser.init invokation from execution to sh sourcing
  10. #          since the files are not executable under UNIX.
  11. #          Changed to use vars from /etc/default/authsh if no
  12. #          /etc/default/mkuser
  13. # 92/03/20 Added code to use /etc/shadow if it exists
  14. #          Run authck -p if available
  15. # 92/04/03 Use MIN_SUGGEST_UID, MIN_SUGGEST_GID, and LOGIN_GROUP throughout
  16. #          script so that they can be changed in mkuser.defs file
  17. # 92/05/03 Move automatic uid generation after reading of mkuser.defs
  18. # 93/05/18 Let $ADDRESS be separated by colons in addition to whitespace
  19. # 93/07/09 Print correct warning if username is a mail alias.
  20. # 93/11/14 Print warning if password is truncated by makepass.
  21. # 93/12/16 Modified to use /tcb/bin/ap instead of doing everything dangerously
  22. # 93/12/31 Moved all vars specific to an account into associative arrays.
  23. #          Added ability to process multiple account requests.
  24. # 94/01/02 Check whether multiple values are given for an account parameter.
  25. # 94/01/06 Print warnings at end for failed account creations & truncated
  26. #          passwords.
  27. # 94/01/09 Moved group adding into ap processing.  Moved ap and mkuser.init
  28. #          invokation to end of script.  This allows all accounts to be
  29. #          created by a single instance of ap.
  30. # 94/04/16 Exit if ap fails.
  31. # 94/05/22 Use default address file if $ADDRESS not set.
  32. # 94/09/12 Added -n option
  33. # 94/12/10 Deal with phone numbers much better.  
  34. #          Discard + chars before writing record to address database.
  35. #          Capitalize 1st char of names if they were entered all lower case.
  36. #          Require that ap_tmp file have nonzero size before running ap etc.
  37. # 94/12/16 Phone num canonicalization bugfix
  38. # 95/07/08 Fix to tr bug in above fix
  39. # 95/07/28 Tell where ap file left if it fails.
  40. # 95/08/24 Get rid of extra spaces in names
  41. # 95/10/20 Use namespaces instead of associative arrays to speed things up
  42. # 95/12/23 Use egrep, not /bin/egrep; new OS doesn't have a /bin/egrep
  43. # 96/01/20 Make tempfile start with #; create it more safely
  44. # 96/03/02 Set BadAccounts correctly.
  45. # 96/03/17 Added x option.
  46. # 96/03/20 Use sed instead of tr when ranges are needed because they have
  47. #          to be specified differently in different releases.
  48. # 96/04/27 Remove tmpfile on error exit
  49. # 96/05/10 Deal with all-lower-case names too.
  50. # 97/06/27 Make filename given on command line work again.
  51. #
  52. # This script adds a user to a XENIX or UNIX system (with "traditional" or
  53. # lower security) through the 'ap' utility.
  54. # This script runs /usr/lib/mkuser/<shell>/mkuser.init to do the following:
  55. #  create user's home directory
  56. #  copy login files to user's home directory
  57. #  send the user welcome mail
  58.  
  59. # Bugs:
  60. # Password is echoed when used interactively.
  61. # If ap is not used, no attempt is made to lock passwd or group file
  62. # (should use ale(ADM) to lock them)
  63. # UIDs are reused, which is a security risk unless all old files, IPC objects,
  64. # processes, etc. on the system that are owned by the uid are removed.
  65. # uucp/mkuser.defs has MIN_SUGGEST_UID=100 in it, but it is ignored.
  66.  
  67. # @(#) mktempfile 1.0 96/05/22
  68. # 96/01/20 jhdiii
  69.  
  70. # Usage: mkfiles name ...
  71. # Creates the named files with some attempt at security.
  72. # This will be more reliable if user do not have chown authority.
  73. # Any file that contains no / characters is created in the user's tempdir.
  74. # If TMP was not set, it is set by this function.
  75. # Returns 0 on success; prints a diagnostic message & returns 1 on failure.
  76. function mkfiles {
  77.     typeset file files
  78.     typeset -i i=0
  79.  
  80.     : ${TMP:=$TMPDIR}
  81.     : ${TMP:=/tmp}
  82.     for file; do
  83.     [[ "$file" != */* ]] && file="$TMP/$file"
  84.     files[i]=$file
  85.     let i+=1
  86.     done
  87.     set -- "${files[@]}"
  88.  
  89.     rm -f "$@" || {
  90.     # hopefully rm will have printed a more specific message.
  91.     print -u2 "Could not remove pre-existing files."
  92.     return 1
  93.     }
  94.     for file; do
  95.     # Use >> to avoid 0'ing the file in case a symlink was just made from
  96.     # the filename to something we don't want to truncate
  97.     >> "$file" || {
  98.         print -u2 "Could not create temp file $file"
  99.         return 1
  100.     }
  101.     # These are very suspicious
  102.     [ -s "$file" ] && {
  103.         print -u2 "New tempfile is not empty!!!"
  104.         return 1
  105.     }
  106.     [ -O "$file" ] || {
  107.         print -u2 "Do not own $file!!!"
  108.         return 1
  109.     }
  110.     done
  111.     # Could do some more stuff here, but anyone concerned with security should
  112.     # have chown authorization off for most users.
  113.     return 0
  114. }
  115.  
  116. # Usage: mktempfile name
  117. # Creates a tempfile name tempdir/#name$$, and sets the global mktempfile_ret
  118. # to that name.  tempdir is a temp directory in $TMP, $TMPDIR, or /tmp, and $$
  119. # is the PID of the current process.
  120. # name should be 8 characters or less, so that the resulting filename will
  121. # not be more than 14 characters long (a limit on some machines).
  122. # Returns 0 on success, prints a diagnostic message & returns 1 on failure.
  123. function mktempfile {
  124.     typeset file="#$1$$"
  125.     mkfiles "$file"
  126.     mktempfile_ret="$TMP/#$1$$"
  127. }
  128.  
  129. ## Start of nvar lib
  130.  
  131. # separate-namespace routines
  132. # 95/10/20 john h. dubois iii (john@armory.com)
  133. # These routines store values in variables whose namespace is separated
  134. # from other variables by preceding them with a prefix.
  135. # prefixes must have names that are valid shell variable names.
  136.  
  137. # Usage: nStore <prefix> <varname> <value> <append>
  138. # Stores value <value> in the <varname> that is part of namespace <prefix>
  139. # A null <value> may be given.
  140. # If a 4th argument is given, the value is appended to the current value
  141. # stored for the variable (if any).
  142. # Return value is 0 for success,
  143. # 2 for failure due to bad varname, 3 for bad syntax
  144. function nStore {
  145.     typeset var="$1_$2" Val=$3
  146.  
  147.     [ "$var" = _ ] && return 2
  148.     case $# in
  149.     3) eval $var=\$Val;;
  150.     4) eval $var=\"\$$var\$Val\";;
  151.     *) return 3;;
  152.     esac
  153.     return 0
  154. }
  155.  
  156. # Usage: nGet [-n] <prefix> <var> <result>
  157. # Gets the value of var <var> in namespace <prefix> and stores it in shell
  158. # variable <result>.  Returns failure status if the value was null.
  159. # If -n is given, <result> is not touched in the value is null.
  160. # result may have the form array[n].
  161. # If <result> is not given, nothing is assigned; only the return status is set.
  162. function nGet {
  163.     typeset noTouch=false var result
  164.     if [ "$1" = -n ]; then
  165.     noTouch=true
  166.     shift
  167.     fi
  168.     var="$1_$2"
  169.     result=$3 
  170.  
  171.     eval r=\$$var
  172.     [[ $# -eq 3 && ( $noTouch = false || -n "$r" ) ]] && eval $result=\$r
  173.     [ -n "$r" ]
  174. }
  175.  
  176. # Usage: nUnset <prefix> <var> ...
  177. # Each variable <var> in namespace <prefix> is unset.
  178. function nUnset {
  179.     typeset prefix=${1}_ var
  180.  
  181.     shift
  182.     for var; do
  183.     eval unset $prefix$var
  184.     done
  185. }
  186.  
  187. # Usage: nGetMany <array> <prefix> <varname> ...
  188. # Each of the named variables in namespace <prefix> is stored in shell array
  189. # <arry> with indices starting with 0.
  190. # The number of variables that had non-null values is returned (it will
  191. # wrap around if more than 255 values are stored).
  192. function AGetMany {
  193.     typeset -i NumNonNull=0 ind=0
  194.     typeset Arr=$1 prefix=$2 var
  195.  
  196.     shift 2
  197.     for var; do
  198.     nGet $prefix "$var" "$Arr[$ind]" && let NumNonNull+=1
  199.     let ind+=1
  200.     done
  201.     return $NumNonNull
  202. }
  203.  
  204. # set_vars: store variable assignments in a namespace.
  205. # 93/12/28 John H. DuBois III (john@armory.com)
  206. # Usage: set_vars prefix [filename ...]
  207. # where the lines in filename (or the input) are of the form
  208. # var=value
  209. # value may contain whitespace, backslashes, quote characters, etc.;
  210. # they will become part of the value assigned.
  211. # Lines that begin with a # (optionally preceded by whitespace),
  212. # lines that do not contain a '=', and lines that contain illegal characters
  213. # in the var part are ignored.
  214. # The only legal characters are [a-zA-Z0-9_]
  215. # Values are stored in variables of the name given before the =, preceded by
  216. # prefix.  prefix may be given as a null string.
  217. # Example: 'set_vars foo_ bar' will read the file bar.  If bar contains the line
  218. # blit=xyz
  219. # then this shell variable assignment will be made:
  220. # foo_blit=xys
  221.  
  222. function set_vars {
  223.     typeset prefix digits
  224.  
  225.     prefix=$1
  226.     # If prefix is non-null, first char of name may be a digit
  227.     [ -n "$prefix" ] && digits=0-9
  228.     shift
  229.     for file; do
  230.     if [ ! -f "$file" ]; then
  231.         print -u2 -- "$file: No such file."
  232.         return 1
  233.     fi
  234.     if [ ! -r "$file" ]; then
  235.         print -u2 -- "$file: Could not open for reading."
  236.         return 1
  237.     fi
  238.     done
  239.     # return exit status of eval
  240.     # Delete lines that start with # or which do not contain an =
  241.     # or which try to assign to bad var names
  242.     # Quote '
  243.     # Put new ' around value
  244.     eval "$(sed "
  245. /^[     ]*#/d
  246. /^[a-zA-Z_$digits][a-zA-Z0-9_]*=/!d
  247. s/'/'\\\\''/g
  248. s/=/='/
  249. s/$/'/
  250. s/^/$prefix/" "$@")"
  251. }
  252.  
  253. # Usage: nset_vars <prefix> [filename ...]
  254. # Any legal vars assigned to in the given files are stored in namespace <prefix>
  255. function nset_vars {
  256.     typeset prefix=${1}_
  257.  
  258.     shift
  259.     set_vars $prefix "$@"
  260. }
  261.  
  262. # Usage: nChkStore <prefix> <varname> <value>
  263. # Exit if <varname> is already set in namespace <prefix>, else set it to <value>
  264. function ChkStore {
  265.     typeset prefix=$1 var=$2 value=$3
  266.  
  267.     if nGet $prefix $var; then
  268.     print -u2 "Error: $index already set.  Exiting."
  269.     exit 1
  270.     else
  271.     nStore $prefix $var "$value"
  272.     fi
  273. }
  274.  
  275. ## End of nvar lib
  276.  
  277. # Print help message.
  278. # Globals used: Name, Usage, PAGER, MIN_SUGGEST_UID, LOGIN_GROUP
  279. # Globals changed: none.
  280. function help {
  281. echo \
  282. "$Name: add a user to the system.
  283. $Usage
  284. If a filename is given, it is read for the neccessary information. Otherwise,
  285. if the input is a tty, the neccessary information is prompted for
  286. interactively.  If the input is not a tty, the input is read for the
  287. information.  In all cases except for interactive operation, the input read is
  288. expected to consist of lines of the form
  289. var=value
  290. where value gives an appropriate value for var.
  291. Each var should be one of the following (unrecognized vars are ignored):
  292.  
  293. acctname:  Name of the account
  294. password:  Initial password
  295. uid:       Numeric user id
  296. group:     Login group (numeric or name)
  297. name:      Name/comment for the GCOS (comment) field of /etc/passwd
  298. shell:     Login shell
  299. address:   Address for (optional) address database
  300. phone_num: Phone number for the GCOS field and (optionally) address database
  301.  
  302. acctname, name, and shell are required.
  303. If multiple groups of lines that contain '=' characters are read,
  304. separated by lines that do not contain '=' characters,
  305. each group is processed as a separate account request.
  306. A directory with the name of shell with the files required by mkuser
  307. must exist in /usr/lib/mkuser.
  308. If password is not given, the account is created without a password.
  309. If a password of '*' is given, a literal '*' will be put in the user's
  310. password field, so that no password will give access to the account.
  311. If a normal password is given, it is encrypted with the \"makepass\" utility.
  312. If \"makepass\" is not available, a null or '*' password should be given,
  313. and the user's password set with \"passwd\".
  314.  
  315. The default for uid is the first unused uid that is MIN_SUGGEST_UID
  316. (currently configured at $MIN_SUGGEST_UID) or higher.
  317. The default for group is \"$LOGIN_GROUP\".
  318. If $Name is being used non-interactively,
  319. the default or given group must already exist in /etc/group.
  320.  
  321. The defaults for address and phone_num are null.
  322. If an address was given for the user, then after the user has been created
  323. an address record is written.  The record is in the format
  324. Name
  325. Address
  326. Phone number
  327. Email address
  328. +
  329. If the environment variable ADDRESS is set, the address record is written to
  330. the file given by the first word of its value.  Otherwise, it is written to
  331. the file $addrdef, if it exists.  If not, it is written to the
  332. standard output.
  333.  
  334. Normally, both informational and error messages are printed to the error output.
  335. If stderr is not a tty, only error messages are printed.
  336. 'ap' is run to add a user to the tcb database.
  337. Note: very little sanity checking of parameters is done.
  338. Options:
  339. -a: Do not write an address record.
  340. -t: Test: the normal messages are printed, but the user is not actually added
  341.     to the system.  Informational messages are printed even if stderr is not
  342.     a tty.
  343. -x: Turn on debugging.  Informational messages are printed even if stderr is
  344.     not a tty, and extra information is printed.
  345. -r<num>:  The number of login retries before the account is locked is set to
  346.     <num> for each account created.
  347. -h: Print this help.
  348. -n: Set non-interactive mode (expecting input of the form var=value) even if
  349.     input is a tty." | ${PAGER:-more}
  350. }
  351.  
  352. # Test whether an integer variable is nonzero or zero
  353. alias istrue="test 0 -ne"
  354. alias isfalse="test 0 -eq"
  355.  
  356. # DoFlags: interpret command line args
  357. # Usage: DoFlags "$@"
  358. # Globals used: $*, Usage
  359. # Globals set: test, debug, Interactive, Retries
  360. # returns number of args that were options
  361. function DoFlags {
  362.     typeset opt
  363.     typeset -i i
  364.  
  365.     while getopts :ahntr:x opt; do
  366.     case $opt in
  367.     a)
  368.         DoAddr=0;;
  369.     t)
  370.         test=1
  371.         debug=1
  372.         ;;
  373.     x)
  374.         set -x
  375.         debug=1
  376.         ;;
  377.     n)
  378.         Interactive=0;;
  379.     h)
  380.         help
  381.         exit 0;;
  382.     r)
  383.         if i=$OPTARG && [ i -gt 0 ]; then
  384.         Retries="u_maxtries#$i:"
  385.         else
  386.         print -u2 "$Name: Bad value given for max retries."
  387.         exit 1
  388.         fi;;
  389.     +?)
  390.         print -u2 "$Name: options should not be preceded by a '+'."
  391.         exit 1
  392.         ;;
  393.     :)
  394.         print -r -u2 -- \
  395.         "$Name: Option '$OPTARG' requires a value.  Use -h for help."
  396.         exit 1
  397.         ;;
  398.     ?) 
  399.         print -u2 "$Name: $OPTARG: bad option.  Use -h for help."
  400.         exit 1
  401.         ;;
  402.     esac
  403.     done
  404.  
  405.     # remove args that were options
  406.     let OPTIND=OPTIND-1
  407.     return $OPTIND
  408. }
  409.  
  410. # GetShells: sets Shells to be a list of available shells
  411. # Globals set: Shells
  412. function GetShells {
  413.     typeset s
  414.  
  415.     cd /usr/lib/mkuser || {
  416.     print -u2 "Could not change dir to /usr/lib/mkuser.  Exiting."
  417.     exit 1
  418.     }
  419.     for s in */mkuser.init; do
  420.     Shells="$Shells   ${s%/mkuser.init}"
  421.     done
  422. }
  423.  
  424. # GetGroups: set Groups to be a list of groups
  425. # Globals set: Groups
  426. function GetGroups {
  427.     set -- $(wc -l /etc/group)
  428.     if [ $1 -gt 22 ]; then
  429.     # If more than 22 groups, print only group name & remove newlines
  430.     set -- $(sed 's/:.*//' /etc/group)
  431.     Groups=$*
  432.     else
  433.     Groups=$(sed 's/:[^:]*:/    /;s/:/    /;s/,/ /g' /etc/group)
  434.     fi
  435. }
  436.  
  437. # Globals set:
  438. # vars in namespace Account
  439. function GetAccountInfo {
  440.     typeset passwdquery vars var invar
  441.  
  442.     GetShells    # set Shells to list of available shells
  443.     GetGroups    # set Groups to be a list of available groups
  444.  
  445.     if whence makepass > /dev/null; then
  446.     passwdquery="Enter the new user's password (note: passwd will echo)"
  447.     else
  448.     passwdquery=\
  449. "Press return for a null password, or enter '*' to prevent logins"
  450.     fi
  451.  
  452.     vars="acctname name shell password uid group address phone_num"
  453.     set -- \
  454. "Enter the new user's login name" \
  455. "Enter the new user's name (the comment to put in /etc/passwd)" \
  456. "Enter the new user's login shell.  The available shells are:
  457. $Shells" \
  458. "$passwdquery" \
  459. "Enter the new user's uid (or press return to use the next available uid)" \
  460. "Enter the new user's login group, or press return to use the default group
  461. ($LOGIN_GROUP).  The currently existing groups are:
  462. $Groups" \
  463. "Enter the new user's address" \
  464. "Enter the new user's phone number"
  465.  
  466.     for var in $vars; do
  467.         print -n -u2 "$1\n$var="
  468.         read invar
  469.         nStore Account $var "$invar"
  470.     until Test_$var; do
  471.         print -n -u2 "$1\n$var="
  472.         read invar
  473.         nStore Account $var "$invar"
  474.     done
  475.         shift
  476.     done
  477. }
  478.  
  479. # Prints next unused uid
  480. # Usage: SetUID min-uid [skip-uids]
  481. function SetUID {
  482.     typeset UIDFound minuid=$1
  483.  
  484.     shift
  485.     awk -F: -v uid=$minuid -v UIDsUsed="$*" '
  486. { 
  487.     uids[$3]
  488. }
  489. END {
  490.     split(UIDsUsed,Elem," +")
  491.     for (i in Elem)
  492.     uids[Elem[i]]
  493.     while (uid in uids)
  494.     uid++
  495.     print uid
  496. }' /etc/passwd | read UIDFound
  497.     print $UIDFound
  498. }
  499.  
  500. # Check account parameters
  501. # In Account[], sets groupname and gid; may unset name; may rewrite phone_num,
  502. # may remove path component from shell; sets encpass to encoded password
  503. # Error message is printed & 1 is returned if certain tests fail.
  504. # For non-interactive account creation.
  505. function CheckParams {
  506.     istrue debug && set -x
  507.     Test_acctname || return 1
  508.     Test_password || return 1
  509.     nStore Account encpass "$encpass"
  510.     Test_uid || return 1
  511.     Test_group || return 1
  512.     Test_name || return 1
  513.     Test_shell || return 1
  514.     Test_phone_num || print -u2 "Phone number not set."
  515.     return 0
  516. }
  517.  
  518. # Checks whether account already exists in /etc/passwd or is a mail alias
  519. # Returns 1 of so; otherwise 0
  520. # Prints err messages if name exists
  521. function Test_acctname {
  522.     istrue debug && set -x
  523.     typeset accountname
  524.  
  525.     nGet Account acctname accountname
  526.  
  527.     if egrep "^$accountname:" /etc/passwd >| /dev/null; then
  528.     print -u2 -r "Account $accountname already exists."
  529.     return 1
  530.     fi
  531.     (/usr/mmdf/bin/malias $accountname | egrep 'no aliases') \
  532.     > /dev/null 2>&1 || 
  533.     print -u2 "Warning: $accountname is a mail alias.  Creating account anyway."
  534.     return 0
  535. }
  536.  
  537. # Checks whether password is a valid password
  538. # Returns 0 if so; otherwise nonzero
  539. # Side effects: sets "encpass" to encoded password
  540. # (or * or nothing, if that's what password is)
  541. # Prints err message if bad password
  542. # Global vars: Account*, encpass
  543. function Test_password {
  544.     typeset password
  545.     typeset accountname
  546.  
  547.     nGet Account acctname accountname
  548.     nGet Account password password
  549.  
  550.     MakePass "$password" "$accountname"
  551. }
  552.  
  553. # Checks whether $uid already exists in /etc/passwd
  554. # Returns 0 if it doesn't or is null, 1 if it does
  555. # Prints err message if uid is already used
  556. # Global vars: Account*
  557. function Test_uid {
  558.     typeset uid
  559.  
  560.     nGet Account uid uid
  561.  
  562.     [ -z "$uid" ] && return 0
  563.     if [[ "$uid" != [0-9]* ]]; then
  564.     print -u2 -r "Bad uid $uid."
  565.     return 1
  566.     fi
  567.  
  568.     if egrep "^[^:]*:[^:]*:$uid:" /etc/passwd >| /dev/null; then
  569.     print -u2 -r "uid $uid already assigned."
  570.     return 1
  571.     fi
  572.     return 0
  573. }
  574.  
  575. # Usage: Test_group
  576. # Checks whether groupname/gid <group> exists in /etc/group
  577. # If non-interactive, returns 1 if it doesn't, 0 if it does
  578. # If interactive and group does not exist, gives user the option
  579. # of creating the group.  If the option is rejected or group
  580. # creation fails, returns 1; otherwise returns 0.
  581. # Side effects:
  582. # If found, sets group to group name and gid to group id.
  583. # If interactive, may create a group by adding a line to /etc/group
  584. # If non-interactive, prints an error message if group does not exist
  585. # Global vars: $LOGIN_GROUP (default group id/name), Account*
  586. function Test_group {
  587.     typeset group groupname gid
  588.  
  589.     nGet Account group group
  590.  
  591.     if [ -z "$group" ]; then
  592.     if [ -z "$LOGIN_GROUP" ]; then
  593.         print -u2 "\007\007\007ERROR in Test_group: LOGIN_GROUP not set."
  594.         exit 1
  595.     fi
  596.     group=$LOGIN_GROUP
  597.     fi
  598.     GoodGroup "$group" | read groupname gid
  599.     [ -z "$groupname" ] && return 1
  600.     nStore Account groupname "$groupname"
  601.     nStore Account gid "$gid"
  602.     return 0
  603. }
  604.  
  605. # Usage: GoodGroup <group>
  606. # Checks whether groupname/gid <group> exists in /etc/group
  607. # If non-interactive, returns 1 if it doesn't, 0 if it does
  608. # If interactive and group does not exist, gives user the option
  609. # of creating the group.  If the option is rejected or group
  610. # creation fails, returns 1; otherwise returns 0.
  611. # Side effects:
  612. # If found, prints groupname & gid
  613. # If interactive, may create a group by adding a line to /etc/group
  614. # If non-interactive, prints an error message if group does not exist
  615. function GoodGroup {
  616.     typeset group=$1
  617.  
  618.     [ -z "$group" ] && return 1
  619.     if FindGroup "$group"; then :; else
  620.     print -u2 "Group $group does not exist."
  621.     if ((Interactive)); then
  622.         MakeGroup $group || return 1
  623.     else
  624.         return 1
  625.     fi
  626.     fi
  627.     print "$groupname" "$gid"
  628.     return 0
  629. }
  630.  
  631. # Tests whether $name is a valid name that can be put in the GCOS field
  632. # Returns 0 if it is, 1 if not
  633. # Global vars: none
  634. function Test_name {
  635.     typeset name newName=
  636.     typeset -u -L1 u    # 1 char, upper case
  637.     typeset -l Comp    # lower case
  638.  
  639.     set -o noglob    # make sure globbing is off; local to this func
  640.     nGet Account name name
  641.  
  642.     if [[ "$name" = *:* ]]; then
  643.     print -u2 -r "Name/comment \"$name\" contains a ':'."
  644.     nStore Account name ""
  645.     return 1
  646.     fi
  647.     # Get rid of extra spaces
  648.     set -- $name
  649.     name="$*"
  650.     # If name was entered all in lower or upper case, convert the first char of
  651.     # each component to upper case & the rest to lower case
  652.     if [[ "$name" != *[A-Z]* ]]; then
  653.     for Comp in $name; do
  654.         u=$Comp
  655.         newName="$newName $u${Comp#?}"
  656.     done
  657.     nStore Account name "${newName#?}"
  658.     fi
  659.     return 0
  660. }
  661.  
  662. # Tests whether phone_num is a valid phone number that can be put in
  663. # the GCOS field
  664. # Returns 0 if it is, 1 if it isn't
  665. # Side effects: 
  666. # Rewrites NA phone numbers in format suitable for GCOS field: 
  667. # aaa/pppnnnn or ppp-nnnn
  668. # No - between prefix and number if area code is given, because SCO finger
  669. # daemon limits "office" field (where the phone # is put) to 11 chars.
  670. # Rewrites non-NA phone numbers to exclude invalid chars.
  671. # If phone_num isn't valid, sets it to null string and prints an error message
  672. # Global vars: Account*
  673. # 94/12/10 jhdiii  Rewrote.
  674. function Test_phone_num {
  675.     typeset phone_num Digits
  676.     typeset -i NumDig
  677.  
  678.     nGet Account phone_num phone_num
  679.  
  680.     [ -z "$phone_num" ] && return 0
  681.  
  682.     # Use sed instead of tr because tr behaviour re needing
  683.     # [] around ranges is incompatible between releases.
  684.     Digits=$(print -r -- "$phone_num" | sed 's/[^0-9]//g')
  685.     NumDig=${#Digits}
  686.  
  687.     # This test for whether a phone number is a NA number is based on 600
  688.     # phone numbers entered with account requests.  It will fail for numbers
  689.     # given with phone extensions, descriptions, numbers given with some digits
  690.     # as alpha characters, more than one phone number given, etc.
  691.     # optional-whitespace
  692.     # optional area code
  693.     #     optional leading 1
  694.     #         optional hyphen after 1
  695.     #     optional open-paren
  696.     #     3 digits
  697.     #     optional close-paren
  698.     #     any number of nondigits
  699.     # 3 digit prefix
  700.     # any number of nondigits
  701.     # 4 digit number
  702.     # optional whitespace
  703.     if print -r -- "$phone_num" | egrep '^ *((1-?)?\(?[0-9][0-9][0-9]\)?[^0-9]*)?[0-9][0-9][0-9][^0-9]*[0-9][0-9][0-9][0-9] *$' > /dev/null; then
  704.     # NA number
  705.     case $NumDig in
  706.     7) NewNum="${Digits%????}-${Digits#???}";;
  707.     10) NewNum="${Digits%???????}/${Digits#???}";;
  708.     11) NewNum="${Digits%???????}/${Digits#???}"
  709.         NewNum=${NewNum#1}
  710.         ;;
  711.     *)
  712.         print -u2 "Phone number test failed?!"
  713.         ;;
  714.     esac
  715.     elif [ NumDig -lt 10 ]; then
  716.     print -u2 "Invalid phone number: $phone_number"
  717.     NewNum=
  718.     else
  719.     # Get rid of any chars that should not exist anywhere in a phone #
  720.     NewNum=$(print -r -- "$phone_num" | sed 's/[^0-9/(),+. -]//g')
  721.     NewNum=${NewNum##*([!(+0-9])}
  722.     NewNum=${NewNum%%*([!0-9])}
  723.     [ ${#NewNum} -ne ${#phone_num} ] && print -u2 \
  724. "Discarded invalid chars in phone number '$phone_num';
  725. new number is: $NewNum"
  726.     fi
  727.  
  728.     nStore Account phone_num "$NewNum"
  729.     [ -z "$NewNum" ]
  730. }
  731.  
  732. # Tests whether shell is a valid shell
  733. # Returns 0 if it is, 1 if it isn't
  734. # Side effects: Removes any path component in shell
  735. # If shell is not valid, prints error message
  736. function Test_shell {
  737.     typeset shell
  738.  
  739.     nGet Account shell shell
  740.  
  741.     # ignore any attempt at full path name in shell
  742.     shell=${shell##*/}
  743.     nStore Account shell "$shell"
  744.     if [ ! -f /usr/lib/mkuser/$shell/mkuser.init ]; then
  745.     print -u2 -r "Don't know how to create a user with shell \"$shell\"."
  746.     return 1
  747.     fi
  748. }
  749.  
  750. # Stub
  751. function Test_address {
  752.     return 0
  753. }
  754.  
  755. # FindGroup [gid|groupname] 
  756. # searches /etc/group for a group with either the name or gid given
  757. # in the argument.
  758. # If found, sets groupname to group name and gid to group id and returns
  759. # status 0.
  760. # If fails, returns nonzero.
  761. # Globals used/modified: none.
  762. function FindGroup {
  763.     typeset gname gpass rgid gusers
  764.     typeset IFS=:
  765.     unset gname
  766.  
  767.     sed -n "/^$1:/p;/^[^:]*:[^:]*:$1:/p" /etc/group | 
  768.     read gname gpass rgid gusers
  769.     if [ -n "$gname" ]; then
  770.     groupname=$gname
  771.     gid=$rgid
  772.     return 0
  773.     else
  774.     return 1
  775.     fi
  776. }
  777.  
  778. # Makes a group.  Returns nonzero on failure.
  779. # Usage: MakeGroup gid|groupname
  780. # Global vars:
  781. # Sets gid and groupname.
  782. # May create a new group in /etc/group.
  783. # This function requires that the standard input & standard error streams
  784. # be connected to an interactive session.
  785. function MakeGroup {
  786.     typeset g=$1 badreply=true groupmade
  787.  
  788.     while [ $badreply ]; do
  789.     print -n -u2 "Create it, Select another group name or Abort? [c/s/a] "
  790.     read reply || return 1
  791.     case $reply in
  792.     a*) return 1;;
  793.     s*) print -u2 -n "Enter a group name or number: "
  794.         read g || return 1;;
  795.     c*) ;;
  796.     *) continue;
  797.     esac
  798.     unset badreply
  799.     done
  800.     groupmade=
  801.     while [ -z "$groupmade" ]; do
  802.     if [[ "$g" = *([0-9]) ]]; then
  803.         gid=$g
  804.         print -u2 -n "Enter a group name: "
  805.         read groupname || return 1
  806.         if egrep "^$groupname:" /etc/group >| /dev/null; then
  807.         print -u2 "Group name $groupname is already in use."
  808.         else
  809.         group=$groupname
  810.         if [ -n "$gid" ]; then
  811.             groupmade=true
  812.         else
  813.             g=$groupname
  814.         fi
  815.         fi
  816.     else
  817.         groupname=$g
  818.         print -u2 -n \
  819. "Enter a group id #, or press <return> to select the next available gid: "
  820.         read gid || return 1
  821.         if [ -n "$gid" ]; then
  822.         if egrep "^[^:]*:[^:]*:$gid:" /etc/group >| /dev/null; then
  823.             print -u2 "gid $gid is already in use."
  824.         else
  825.             groupmade=true
  826.         fi
  827.         else
  828.         # set gid to next unused gid
  829.         gid=`awk -F: '
  830.         { 
  831.             gids[$3]
  832.         }'"
  833.         END { 
  834.             for (gid = $MIN_SUGGEST_GID; gid in gids; gid++)
  835.             print gid
  836.         }
  837.         " /etc/group`
  838.         print -u2 "Group assigned gid $gid."
  839.         groupmade=true
  840.         fi
  841.     fi
  842.     done
  843.     print -u2 "Adding the following line to /etc/group:\n$groupname::$gid:"
  844.     isfalse test && echo "$groupname::$gid:" >> /etc/group
  845.     return 0
  846. }
  847.  
  848. # MakePass: set encpass to encoded version of $1
  849. # If password is '*' or null, make it the password without encrypting
  850. # Globals changed: encpass, Truncated
  851. # Usage: MakePass encoded-password accountname
  852. function MakePass {
  853.     if [[ "$1" = @(\\*|) ]]; then
  854.     encpass="$1"
  855.     else
  856.     encpass=`print -r "$1" | makepass` ||
  857.     { print -u2 "Bad password."; return 1; }
  858.     # If password is more than 8 chars, encoded password should be
  859.     # more than 13 chars.
  860.     if [[ "$1" = ?????????* && "$encpass" != ??????????????* ]]; then
  861.         print -u2 \
  862.         "\007\007\007***    Warning! Password truncated to 8 characters."
  863.         Truncated="$Truncated $2"
  864.     fi
  865.     fi
  866.     return 0
  867. }
  868.  
  869. # SetMkuserDef: set vars from an account defaults file
  870. # Usage: SetMkuserDef prefix filename ...
  871. # prefix_vars set:
  872. # HOME HOMEMODE PROFMODE MAILMODE LOGIN_GROUP
  873. # MIN_SUGGEST_UID MIN_SUGGEST_GID OTHER_GROUPS
  874. # If -d is given, set defaults for values not given
  875. # Returns 0 if file cannot be read
  876. function SetMkuserDef {
  877.     typeset file prefix var
  878.     typeset -i DefOK=0 SetDef=0
  879.     typeset VarList="HOME HOMEMODE PROFMODE MAILMODE LOGIN_GROUP
  880.     MIN_SUGGEST_UID MIN_SUGGEST_GID OTHER_GROUPS SHELL HOME_MODE HOME_DIR"
  881.     typeset $VarList
  882.  
  883.     if [ "$1" = -d ]; then
  884.     SetDef=1
  885.     shift
  886.     fi
  887.     prefix=$1
  888.  
  889.     for file; do
  890.     if [ -r $file ]; then
  891.         nset_vars $prefix "$file"
  892.         DefOK=1
  893.         break
  894.     fi
  895.     done
  896.     if isfalse DefOK; then
  897.     print -u2 "Could not read: $*"
  898.     return 1
  899.     fi
  900.  
  901.     # Set default & alternate values
  902.     for var in HOME_DIR HOME_MODE LOGIN_GROUP; do
  903.     nGet -n $prefix $var $var
  904.     done
  905.     # Set pairs of <var-name>,<alternate-value>
  906.     set -- HOME "$HOME_DIR" HOMEMODE "$HOME_MODE" OTHER_GROUPS "$LOGIN_GROUP"
  907.     istrue SetDef && set -- "$@" PROFMODE 600 MAILMODE 600 LOGIN_GROUP group \
  908.     MIN_SUGGEST_UID 200 MIN_SUGGEST_GID 50
  909.     while [ $# -gt 0 ]; do
  910.     # For each var, if it is not set and the alternate var is, set the
  911.     # var to the value of the alternate var.
  912.     nGet $prefix $1 || {
  913.         [ -n "$2" ] && nStore $prefix $1 "$2"
  914.     }
  915.     shift 2
  916.     done
  917.     return 0
  918. }
  919.  
  920. # AddTCBap: Add an account profile record to a file to be processed by ap
  921. # File passed to ap looks like this:
  922. # blort:x:450:50:Todd:/u/blort:/bin/ksh
  923. # blort:u_name=blort:u_id#450:\
  924. #     :u_pwd=x.5wL0kjhWqk.:\
  925. #     :u_type=general:u_lock@:chkent:
  926. # Usage: AddTCBap acctname encpass uid gid GCOS home shell [group ...]
  927. # Global data used:
  928. # debug        nonzero if debugging info should be printed
  929. # ap_tmp    file to write record to
  930. # Retries: Max login retries field, if any.  Should be in the form:
  931. # u_maxtries#n:
  932. function AddTCBap {
  933.     typeset aprec group groups= xgroupname xgid
  934.     typeset acctname=$1 encpass=$2 uid=$3 gid=$4 GCOS=$5 UserHome=$6
  935.     typeset FullShell=$7
  936.  
  937.     if [ $# -lt 7 ]; then
  938.     print -u2 "\007\007\007ERROR in AddTCBap: only $# args passed:"
  939.     print -u2 "acctname=$1:encpass=$2:uid=$3:gid=$4:GCOS=$5:UserHome=$6"
  940.     return 2
  941.     fi
  942.     shift 7
  943.     if [ $# -gt 0 ]; then
  944.     for group; do
  945.         GoodGroup "$group" | read xgroupname xgid
  946.         if [ -z "$xgroupname" ]; then
  947.         print -u2 "Aborting account creation due to bad group."
  948.         return 1
  949.         fi
  950.         groups="$groups
  951. $xgroupname::$xgid:"
  952.     done
  953.     groups="$groups
  954. ENDOFGROUPS::0:"
  955.     fi
  956.     aprec="$acctname:x:$uid:$gid:$GCOS:$UserHome:$FullShell
  957. $acctname:u_name=$acctname:u_id#$uid:u_pwd=$encpass:u_type=general:${Retries}u_lock@:chkent:$groups"
  958.     print -r "Record to be processed by /tcb/bin/ap:
  959. $aprec"
  960.     if isfalse test; then
  961.     print -r "$aprec" >> $ap_tmp
  962.     fi
  963.     return 0
  964. }
  965.  
  966. # AddTCB: Add user to password and possibly shadow files
  967. # Run authck -p -s -y if neccessary
  968. # Global data used:
  969. # acctname    user account name
  970. # encpass    encoded password
  971. # uid        numeric uid
  972. # gid        numeric login group id
  973. # GCOS        comment for GCOS field
  974. # HOME        home directory
  975. # SHELL        login shell
  976. # test        nonzero if no actual actions should be taken
  977. # notcb        nonzero if authck shouldn't be run.
  978. #function AddTCB {
  979. #    typeset shadowline passwdline
  980. #
  981. #    unset shadowline
  982. #    if [ -f /etc/shadow ]; then
  983. #    shadowline="$acctname:$encpass:::"
  984. #    encpass=x
  985. #    fi
  986. #
  987. #    passwdline="$acctname:$encpass:$uid:$gid:$GCOS:$HOME:$SHELL"
  988. #
  989. #    # Add user to /etc/passwd
  990. #    print "Adding user \"$acctname\" to /etc/passwd with the following line:"
  991. #    print -r "$passwdline"
  992. #    isfalse test && print -r "$passwdline" >> /etc/passwd
  993. #
  994. #    # Add user to /etc/shadow
  995. #    if [ -n "$shadowline" ]; then
  996. #    print \
  997. #    "Adding user \"$acctname\" to /etc/shadow with the following line:"
  998. #    print -r "$shadowline"
  999. #    isfalse test && print -r "$shadowline" >> /etc/shadow
  1000. #    fi
  1001. #    isfalse test && isfalse notcb && 
  1002. #    [ -x /tcb/bin/authck ] && /tcb/bin/authck -p -s -y
  1003. #}
  1004.  
  1005. # Usage: AddToGroups group ...
  1006. # Globals used: test
  1007. #function AddToGroups {
  1008. #    typeset group IFS=,
  1009. #
  1010. #    for group; do
  1011. #    # Add user to /etc/group
  1012. #    print "Adding user \"$acctname\" to group \"$group\" in /etc/group..."
  1013. #    isfalse test && {
  1014. #    Test_group
  1015. #    cp /etc/group /etc/group-
  1016. #    sed "/^$group:/s/\(.*\)/\1,$acctname/" /etc/group- > /etc/group
  1017. #    }
  1018. #    done
  1019. #}
  1020.  
  1021. # Add user to system
  1022. # Globals used: Account Mkuser* ADDRESS test uid AccountVars
  1023. # Globals changed: BadAccounts MILind MkuserInitLines UIDsUsed
  1024. # Script is aborted if mkuser files for selected shell cannot be read.
  1025. # 1 is returned if invalid values are given for account params.
  1026. function MakeUser {
  1027.     istrue debug && set -x
  1028.     typeset GCOS Entry OIFS UserHome var
  1029.     typeset $AccountVars
  1030.     typeset MkuserVars="HOME OTHER_GROUPS HOMEMODE MAILMODE PROFMODE SHELL"
  1031.     typeset $MkuserVars ret
  1032.     typeset -i i
  1033.     unset uid
  1034.  
  1035.     # Check/modify values in Account
  1036.     if CheckParams; then :; else
  1037.     nGet -n Account acctname acctname
  1038.     BadAccounts="$BadAccounts $acctname"
  1039.     return 1
  1040.     fi
  1041.     for var in $AccountVars; do
  1042.     nGet -n Account $var $var
  1043.     ret=$?
  1044.     if [[ $var != @(phone_num|uid|address) ]] && eval [ -z \"\$$var\" ]
  1045.     then
  1046.         print -u2 "\007\007\007ERROR in MakeUser: null value for" \
  1047.         "required parm $var; nGet returned $ret"
  1048.         return 2
  1049.     fi
  1050.     done
  1051.  
  1052.     for var in $MkuserVars; do
  1053.     nGet -n Mkuser $var $var
  1054.     done
  1055.  
  1056.     # Set SHELL for given shell.
  1057.     # If HOME is also given, it overrides home set for general accounts.
  1058.     # Other variables may also be set here and override those
  1059.     # set in /etc/default/mkuser etc.
  1060.     # (MIN_SUGGEST_UID, LOGIN_GROUP, HOMEMODE, etc.)
  1061.     # This must come after GetAccountInfo or nset_vars Account "@"
  1062.     # so that $shell will be set.
  1063.     nUnset ShellVars $MkuserVars
  1064.     SetMkuserDef ShellVars /usr/lib/mkuser/$shell/mkuser.defs || return 2
  1065.     for var in $MkuserVars; do
  1066.     nGet -n ShellVars $var $var
  1067.     done
  1068.  
  1069.     # Must do this after mkuser.defs is read, since the shell may have
  1070.     # a special min uid, etc.
  1071.     if [ -z "$uid" ]; then
  1072.     uid=$(SetUID $MIN_SUGGEST_UID $UIDsUsed)
  1073.     UIDsUsed="$UIDsUsed $uid"
  1074.     print -u2 "User assigned uid $uid."
  1075.     fi
  1076.     UserHome=$HOME/$acctname
  1077.     [ -n "$phone_num" ] && GCOS="$name,$phone_num" || GCOS=$name
  1078.  
  1079.     AddTCBap $acctname "$encpass" $uid $gid "$GCOS" $UserHome $SHELL \
  1080.     $OTHER_GROUPS || return $?
  1081.  
  1082.     # Make home directory for user & put shell files in it
  1083.     # mkuser.init usage:
  1084.     # sh mkuser.init user group home homemode mailmode profmode
  1085.     # homemode, mailmode and profmode are the modes to chmod 
  1086.     # user's home dir, mail spool file, and login files to.
  1087.     MkuserInitLines[MILind]=\
  1088. "$shell $acctname $groupname $UserHome $HOMEMODE $MAILMODE $PROFMODE"
  1089.     let MILind+=1
  1090.  
  1091.     # print address for address file
  1092.     if [ -n "$address" ]; then 
  1093.     # Address database uses '+' for record separation, and unfortunately
  1094.     # recognizes them anywhere.  So, get rid of all + chars in record.
  1095.     Entry=\
  1096. "$(print -r -- "$name\n$address\n$phone_num\n$acctname@`hostname`\n" |
  1097.     tr -d +)+"
  1098.     OIFS=$IFS
  1099.     IFS="$IFS:"
  1100.     set -- $ADDRESS
  1101.     IFS=$OIFS
  1102.     if istrue DoAddr && isfalse test; then
  1103.         if [ -n "$1" ]; then
  1104.         print "$Entry" >> $1
  1105.         elif [ -f $addrdef ]; then
  1106.         print "$Entry" >> $addrdef
  1107.         else
  1108.         print -u3 "
  1109. Address file entry:
  1110.  
  1111. $Entry
  1112. "
  1113.         fi
  1114.     fi
  1115.     fi
  1116.     return 0
  1117. }
  1118.  
  1119. function ProcReq {
  1120.     istrue debug && set -x
  1121.     typeset -i LNum=1
  1122.  
  1123.     # Start from scratch for each user
  1124.     nUnset Account $allAccountVars
  1125.     while [ LNum -le NLines ]; do
  1126.     print -r "${Lines[LNum]}"
  1127.     let LNum+=1
  1128.     done | nset_vars Account
  1129.     # Use values in Account to build user
  1130.     # Return MakeUser's return status
  1131.     MakeUser
  1132. }
  1133.  
  1134. # Start of main program
  1135.  
  1136. # Namespace Account stores account parameters.
  1137. # Normal vars are: acctname, name, shell, password, uid, group, address,
  1138. # phone_num, gid, groupname, encpass
  1139.  
  1140. unset ENV
  1141.  
  1142. PATH=$PATH:/usr/bin:/bin:/usr/local/admin
  1143. addrdef=/usr/local/public/address
  1144. Name=${0##*/}
  1145. Usage="Usage: $Name [-anht] [-r<retries>] [request-file]"
  1146.  
  1147. typeset -i test=0 debug=0 numflags=0 Interactive MILind=0 DoAddr=1
  1148. AccountVars="uid acctname phone_num name gid groupname address shell encpass"
  1149. allAccountVars="$AccountVars group password"
  1150.  
  1151. # Read /etc/default/(mkuser or authsh) for default values:
  1152. # HOME HOMEMODE PROFMODE MAILMODE LOGIN_GROUP 
  1153. # MIN_SUGGEST_GID MIN_SUGGEST_UID OTHER_GROUPS
  1154. # Do this before DoFlags so that if help is asked for,
  1155. # the default values of certain params can be included in it.
  1156. SetMkuserDef -d Mkuser /etc/default/mkuser /etc/default/authsh || exit 1
  1157.  
  1158. # Used by Help
  1159. nGet Mkuser MIN_SUGGEST_UID MIN_SUGGEST_UID
  1160. # Used by Help and Test_group
  1161. nGet Mkuser LOGIN_GROUP LOGIN_GROUP
  1162.  
  1163. # Set this before running DoFlags so that -n can override it.
  1164. [ ! -t 0 ]
  1165. Interactive=$?
  1166.  
  1167. DoFlags    "$@"    # interpret command line args
  1168. shift $?
  1169. istrue debug && set -x
  1170. if [ $# -gt 0 ]; then    # filename given on command line?
  1171.     Interactive=0
  1172.     exec < "$1" || exit 1
  1173. fi
  1174.  
  1175. # Informational messages are printed to fd 1 (stdout).
  1176. # If error output is a tty or -t is given, 
  1177. # make them go to fd 2 (stderr).
  1178. # Otherwise make them go to /dev/null.
  1179. # fd 3 is set to stdout so that address line can be written to it.
  1180. # fd 2 is not changed; error and interactive message go to it.
  1181. [ -t 2 -o debug -ne 0 ] && exec 3>&1 1>&2 || exec 3>&1 1>/dev/null
  1182.  
  1183. mktempfile adduser. || {
  1184.     print -u2 "$Name: could not make temp file.  Exiting."
  1185.     exit 1
  1186. }
  1187. ap_tmp=$mktempfile_ret
  1188. trap 'rm -f $ap_tmp' EXIT
  1189.  
  1190. # Store values in Account*
  1191. if ((Interactive)); then
  1192.     # Prompt for vars & sets them.
  1193.     GetAccountInfo
  1194.     # Use values in Account* to build user
  1195.     MakeUser
  1196.     [ $? = 2 ] && exit 1
  1197. else
  1198.     # Non-interactive; set account vars by std input or given filename.
  1199.     typeset -i NLines=0
  1200.  
  1201.     # Even raw read removes leading & trailing spaces.
  1202.     # Leading is ok, but not trailing (might be part of a password).
  1203.     # So, add a : to the end of each line, then get rid of it.
  1204.     # After each group of lines that contain an '=', pass record to ProcRec.
  1205.     sed 's/$/:/' "$@" | while read -r line; do
  1206.     if [[ "$line" = *=* ]]; then
  1207.         let NLines+=1
  1208.         Lines[NLines]=${line%:}
  1209.     else
  1210.         if [ NLines -gt 0 ]; then
  1211.         ProcReq
  1212.         [ $? = 2 ] && exit 1
  1213.         NLines=0
  1214.         fi
  1215.     fi
  1216.     done
  1217.     if [ NLines -gt 0 ]; then
  1218.     ProcReq
  1219.     fi
  1220. fi
  1221.  
  1222. if isfalse test && [ -s "$ap_tmp" ]; then
  1223.     /tcb/bin/ap -v -r -f $ap_tmp || {
  1224.       print -u2 "\007\007\007ERROR: ap failed!  Aborting."
  1225.       print -u2 "ap file left in $ap_tmp"
  1226.       trap - EXIT
  1227.       exit 1
  1228.     }
  1229.  
  1230.  
  1231.     print -u2 "Creating home dirs & sending newuser mail..."
  1232.     # Input is made /dev/null because some mkuser scripts ask questions
  1233.     for line in "${MkuserInitLines[@]}"; do
  1234.     set -- $line
  1235.     shell=$1
  1236.     shift
  1237.     /bin/sh /usr/lib/mkuser/$shell/mkuser.init "$@"
  1238.     done < /dev/null
  1239. fi
  1240.  
  1241. [ -n "$BadAccounts" ] && print -u2 "Account creation failed for:$BadAccounts"
  1242. [ -n "$Truncated" ] && print -u2 "Passwords were truncated for:$Truncated"
  1243.  
  1244. # The EXIT trap will remove the tmpfile
  1245.